nn^u\Ja'3(,fi < ?)aT3€fi(,Cl < U(,fi < ?)'lvi£j(,ifi^(,i'Ua'aia'?)’lvi£Jiil'uan^OpiT,'u Microsoft Word 


vil0aJflu'u^nfUfi 6 yaii , Of s ii>tl < ui,a 6 ylvitJ IaejK visual basic script It! 

macro ua^ Microsoft word 

1. H Coppy fl^riwiragh-aCi 

Sub arabictothaiO 
For i = 0 To 9 
With Selection.Find 
.Text = Chr(48 + i) 

.Replacement.Text = Chr(240 + i) 

.Wrap = wdFindContinue 
End With 

Selection.Find.Execute Replace:=wdReplaceAll 

Next 

End Sub 

Sub thaitoarabicO 
For i = 0 To 9 
With Selection.Find 
.Text = Chr(240 + i) 

.Replacement.Text = Chr(48 + i) 

.Wrap = wdFindContinue 
End With 

Selection.Find.Execute Replace:=wdReplaceAll 

Next 

End Sub 

2. tllfl Microsoft word 

3. ran Tool < Macro < Macros mtu Word 2007,2010 flanvmiJija-ufian Macro (adflTmmafl) 


Documentl - Microsoft Word 


File Edit View Insert Format 


I *#£ -V > 

1 r 5?. ©mi" 

0_ 



Tools 


d 


Table Window Help 



Spelling and Grammar. .. F7 
Research... Alt+Click 

Language 
Word Count... 

Lookup Reference... 

Speech 


Shared Workspace... 


Letters and Mailings 


Macro 


Customize... 

fniAM 1 


100 “/□ 



" : ^4 Normal 


Macros. 


Record New Macro. 


Alt 


Macros Macro name enuvunafiti 6 lairnffaflanilu Create ^naJVtajn&Jta^ 7 
































































I 2V 

S.Hflaajfl'mas a'u^nwiJmvh enajvmimati 8 



/nvuvi 3 


6.Hran9n^tuH < uidi-a Normal-NewMacros (Code) 'oslmilu 2 dm erajviinmati 9 flaetaminas 
til'u aimmihilviEJ dmvi 2 asiilu lymiiluaiTua uasHfianilsj SAVE wasAmliwiriFra visual 
basic a a fil'd at^nmjmmhfrm microsoft word 


^Normal - NewMacros (Code) 


(General) 

▼ thaitoarabic 


3 - .ib arabictothai () 

For i = 0 To 9 
With Selection.Find 
.Text = Chr(43 4 i) 

.Replacement.Text = Chr{240 + 1) 

.Wrap = wdFir.dContin.ue 
End With 

Selection . Find.Execute Replace:=wdReplaceAll 
Next 


End Sub _ 

Sub thaitoarabic () 
For i = 0 To 9 
With Selection.Find 



.Text = Chr(240 4 i) 
.Replacement.Text = Chr(43 + i) 
.Wrap = wdFindContinue 
End With 


Selection . Find.Execute Replace : =wdReplaceAll 
Next 


End Sub 
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7.mLii^a^m'5i,iJa£j < u^nm 6 y^nnaT5€?aCl < ULfi 6 t)lviulmiiPian , wmi! Tool < Macro <Macros 


rd 

at 

l_ 

aj 


lools able Window Help 
'-*? Spelling and Grammar... =7 
a Research... Alt+Click 

Language 
^Vord Count... 

Look Up Reference... 

Speech 

Shared Workspace... 

Letters and Mailings 
Macro 

Customize... 

Options... 


^ = 4 Normal Ang 


i ■ 2 ■ i ■ 3 


4 1 i 


i 1 6 1 i 


Macros... 


Alt+F8 


Record New Macro... 
Security... 


fniAM 5 


S.a^Cimheh-a Macros HramHen arabictothai enjjmrai.ci'U 13 Run (rnuvmimmi 14 

(vnnvin < u^0'3fmlmiJa&JW'ii>a 6 y^nma 6 ylviui,ilijai'5€pinImllan thaitoarabic (rnajTUfltmvi 
13) 



irmvi 6 


au 


wiwmmi mwo TAiaen 


<u 


da 


namw , Lm , u 


Credit : mohcom.tht.in 


























































